FOSS Documentation - Pascal unit for the FOSS-API


unit ApiInt;

interface
uses
  types;

{----------------------------------------------------------------------------}
function  dllVer             : string; far;
procedure dllInit            (     path : string;
                                   node : Byte ); far; { path = FOSS/2-root path }
{----------------------------------------------------------------------------}
function  fioReadMainCfg     ( var cfg : SysCfgT )
                             : Boolean; far;
procedure fioWriteMainCfg    ( var cfg : SysCfgT ); far;
{----------------------------------------------------------------------------}
function  fioReadNodeCfg     ( var cfg : ModCfgT;
                                   pos : LongInt )
                             : Boolean; far;
procedure fioWriteNodeCfg    ( var cfg : ModCfgT;
                               var pos : LongInt); far;
procedure fioDelNodeCfg; far;
function  fioGetNodeCnt      : LongInt; far;
{----------------------------------------------------------------------------}
function  fioReadAreaCfg     ( var cfg : Area_Config_Record;
                                   pos : LongInt ) : Boolean; far;
function  fioFindAreaCode    ( var cfg : Area_Config_Record;
                                   code : string;
                                   pos : LongInt )
                             : Boolean; far;
function  fioFindAreaName    ( var cfg : Area_Config_Record;
                                   name : string;
                                   pos : LongInt ) : LongInt; far;
procedure fioWriteAreaCfg    ( var cfg : Area_Config_Record;
                                   pos : LongInt ); far;
{----------------------------------------------------------------------------}
function  fioReadEventCfg    ( var cfg : Event_Cfg_Record;
                                   pos : LongInt )
                             : Boolean; far;
procedure fioWriteEventCfg   ( var cfg : Event_Cfg_Record;
                               var pos : LongInt ); far;
procedure fioDelEventCfg     (     pos : LongInt ); far;
{----------------------------------------------------------------------------}
function  fioReadLocalUsr    ( var usr : LocUsers;
                                   pos : LongInt )
                             : Boolean; far;
function  fioFindLocalUsr    ( var usr : LocUsers;
                                   name : string;
                               var pos : LongInt )
                             : Boolean; far;
procedure fioWriteLocalUsr   ( var usr : LocUsers;
                               var pos : LongInt ); far;
function  fioGetLocalUsrCnt  : LongInt; far;

function  fioReadNetAddr     (     pos : LongInt;
                               var area : Area_Config_Record )
                             : string; far;
function  fioWriteNetAddr    (     name : string;
                               var area : Area_Config_Record )
                             : LongInt; far;
{----------------------------------------------------------------------------}
function  fioReadUsrAreaReg  ( var reg : Area_Reg;
                               var area : Area_Config_Record;
                                   pos : LongInt )
                             : Boolean; far;
procedure fioWriteUsrAreaReg ( var reg : Area_Reg;
                               var area : Area_Config_Record;
                               var pos : LongInt ); far;
{----------------------------------------------------------------------------}
function  fioReadMsgHeader   ( var mhd : Area_Mhd;
                               var area : Area_Config_Record;
                                   pos : LongInt )
                             : Boolean; far;
function  fioFindMsgNo       ( var mhd : Area_Mhd;
                               var area : Area_Config_Record;
                                   no : LongInt )
                             : Boolean; far;
function  fioFindNextMsg     ( var mhd : Area_Mhd;
                               var area : Area_Config_Record )
                             : Boolean; far;
function  fioFindPrevMsg     ( var mhd : Area_Mhd;
                               var area : Area_Config_Record )
                             : Boolean; far;
procedure fioReadMsgBuf      ( var mhd : Area_Mhd;
                               var area : Area_Config_Record;
                                   ptr : PMsgBuffer ); far;
procedure fioReadMsgStatus   ( var area : Area_Config_Record;
                               var reg : Area_Reg;
                               var usr : LocUsers;
                               var last,
                                   newall,
                                   newyou : LongInt ); far;
procedure fioWriteMsgHeader  ( var mhd : Area_Mhd;
                               var area : Area_Config_Record;
                               var pos : LongInt ); far;
procedure fioUpdateMsgHeader ( var mhd : Area_Mhd;
                               var area : Area_Config_Record ); far;
procedure fioWriteMsg        ( var mhd : Area_Mhd;
                               var area : Area_Config_Record;
                                   ptr : PMsgBuffer ); far;
{----------------------------------------------------------------------------}
function  fioReadDirCfg      ( var cfg : Area_Directory_Record;
                               var area : Area_Config_Record;
                                   pos : LongInt )
                             : Boolean; far;
function  fioFindDirNo       ( var cfg : Area_Directory_Record;
                                   no : LongInt;
                               var area : Area_Config_Record;
                                   pos : LongInt )
                             : Boolean; far;
function  fioFindDirName     ( var cfg : Area_Directory_Record;
                                   name : string;
                               var area : Area_Config_Record;
                                   pos : LongInt )
                             : Boolean; far;
procedure fioWriteDirCfg     ( var cfg : Area_Directory_Record;
                               var area : Area_Config_Record;
                               var pos : LongInt); far;
{----------------------------------------------------------------------------}
function  fioReadFileRec     ( var frec : TFileRec;
                               var area : Area_Config_Record;
                               var rpos : LongInt )
                             : Boolean;
procedure fioWriteFileRec    ( var frec : TFileRec;
                               var area : Area_Config_Record;
                               var rpos : LongInt );
{----------------------------------------------------------------------------}
function  fioGetNodeStatus   ( var stat : NodeStat;
                                   node : Word )
                             : Boolean; far;
{----------------------------------------------------------------------------}
function  fioGetNodeMsg      ( var msg : NodeMsg )
                             : Boolean; far;
procedure fioSendNodeMsg     ( var msg : NodeMsg;
                                   node : Integer ); far;
{----------------------------------------------------------------------------}
function  strUpCase          (     S : string )
                             : string; far;
function  strNiceCase        (     S : string )
                             : string; far;
function  strInsertIdx       (     org,
                                   ins,
                                   idx : string )
                             : string; far;
{----------------------------------------------------------------------------}
function  usrHaveAccess      (     acc : SAccess;
                               var area : Area_Config_Record;
                               var reg : Area_Reg;
                               var usr : LocUsers )
                             : Boolean; far;
function  usrAccess2Msg      ( var mhd : Area_Mhd;
                               var usr : LocUsers )
                             : Boolean; far;
function  usrMsgAddress      ( var msg : Area_Mhd;
                               var area : Area_Config_Record;
                                   tofrom : Byte )
                             : string; far;
{----------------------------------------------------------------------------}

implementation

function  dllVer;              external 'FOSS16' index   1;
procedure dllInit;             external 'FOSS16' index   2;

function  fioReadMainCfg;      external 'FOSS16' index   3;
procedure fioWriteMainCfg;     external 'FOSS16' index   4;

function  fioReadNodeCfg;      external 'FOSS16' index   5;
procedure fioWriteNodeCfg;     external 'FOSS16' index   6;
procedure fioDelNodeCfg;       external 'FOSS16' index   7;
function  fioGetNodeCnt;       external 'FOSS16' index   8;

function  fioReadAreaCfg;      external 'FOSS16' index   9;
function  fioFindAreaCode;     external 'FOSS16' index  22;
function  fioFindAreaName;     external 'FOSS16' index  23;
procedure fioWriteAreaCfg;     external 'FOSS16' index  10;

function  fioReadEventCfg;     external 'FOSS16' index  35;
procedure fioWriteEventCfg;    external 'FOSS16' index  36;
procedure fioDelEventCfg;      external 'FOSS16' index  39;

function  fioReadLocalUsr;     external 'FOSS16' index  11;
function  fioFindLocalUsr;     external 'FOSS16' index  14;
procedure fioWriteLocalUsr;    external 'FOSS16' index  12;
function  fioGetLocalUsrCnt;   external 'FOSS16' index  13;

function  fioReadNetAddr;      external 'FOSS16' index  44;
function  fioWriteNetAddr;     external 'FOSS16' index  45;

function  fioReadUsrAreaReg;   external 'FOSS16' index  15;
procedure fioWriteUsrAreaReg;  external 'FOSS16' index  16;

function  fioReadMsgHeader;    external 'FOSS16' index  17;
function  fioFindMsgNo;        external 'FOSS16' index  18;
function  fioFindNextMsg;      external 'FOSS16' index  19;
function  fioFindPrevMsg;      external 'FOSS16' index  38;
procedure fioReadMsgBuf;       external 'FOSS16' index  20;
procedure fioReadMsgStatus;    external 'FOSS16' index  21;
procedure fioWriteMsgHeader;   external 'FOSS16' index  34;
procedure fioUpdateMsgHeader;  external 'FOSS16' index  29;
procedure fioWriteMsg;         external 'FOSS16' index  28;

function  fioReadDirCfg;       external 'FOSS16' index  30;
function  fioFindDirNo;        external 'FOSS16' index  33;
function  fioFindDirName;      external 'FOSS16' index  31;
procedure fioWriteDirCfg;      external 'FOSS16' index  32;

function  fioReadFileRec;      external 'FOSS16' index  42;
procedure fioWriteFileRec;     external 'FOSS16' index  47;

function  fioGetNodeStatus;    external 'FOSS16' index  43;

function  fioGetNodeMsg;       external 'FOSS16' index  40;
procedure fioSendNodeMsg;      external 'FOSS16' index  41;

function  strUpCase;           external 'FOSS16' index  24;
function  strNiceCase;         external 'FOSS16' index  25;
function  strInsertIdx;        external 'FOSS16' index  26;

function  usrHaveAccess;       external 'FOSS16' index  27;
function  usrAccess2Msg;       external 'FOSS16' index  37;
function  usrMsgAddress;       external 'FOSS16' index  46;

end.

These pages are Copyright © 1995-96 by Terje Flaarønning
This page is last updated at 24th March 1999